00010 



XLIST 
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00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 



INTERNAL LPTI NT . LPT I NI 

EXTERNAL LPTCHN, LPTCHL. LPTRET, OUT, WAITl, 

EXTERNAL ADVBFE, SET 100 , ILL I NP, LPTCH8, LPTCLB 



LPTSAV, lOSET 



JDEVICE DATA BLOCK LINKAGE 

EXTERNAL LPTDAT, LPTCHR, LPTI OS. LPTSER, LPTMOD, LPTBUF, LPTPTR 

EXTERNAL LPTADR, LPTSVl 

ENTRY LPTOSP 
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00120 














00130 


,LPT PARAMETER ASSIGNMENTS 










00140 














00150 














00160 


LPT 


CONTROL REGISTER 










00170 




LPTCLR=2000 


;CLEAR BUFFER 








00180 




LPTDON=100 


JDONE FLAG 








00190 




LPTERRs400 


;ERR0R FLAG 








00200 




LPTLOV=1000 


;LINE OVERFLOW 








00210 














00220 


SPECIAL 10 STATUS WORD 


ASSIGNMENTS 








00230 




LPTADV=100000 










00240 














00250 


REPEAT 0,< 










00260 


LPT 


DATABLOCK 










00270 














00280 


LPTDAT: 


SIXBIT .LPT. 










00290 


LPTCHR: 


32 










00300 


LPTIOS: 













00310 


LPTSER: 


EXP LPTDSP 










00320 


LPTMOO: 


XWD 0,3 










00330 















00340 


LPTBUF: 













00350 


LPTPTR: 













00360 


LPTADR: 


XWD PROG,0 










00370 


LPTSVi: 













00380 


> 












00390 














00400 


LPT 


SERVICE DISPATCH TABLE 








00410 








000000 


?54000 


000004* 


00420 


LPTDSP: 


JRST LPTINI 


JRELEASE 


000001 


254000 


000007' 


00430 




JRST LPTCLS 


;CLOSE 


000002 


254000 


000013' 


00440 




JRST LPTOUT 


;OUTPUT 


000003 


254000 


000000 


00450 
00460 




JRST ILLINP 


MNPU 


000004 


712600 


002000 


00470 


LPTINI : 


CONO LPT.LPTCLR 


;lpt initialize 


000005 


513000 


000034' 


00480 




HLLZS LPTINT 




000006 


263140 


000000 


00490 




POPJ POP, 
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00500 


000007 


260140 


000000 


00510 


000010 


260140 


000000 


00520 


000011 


712540 


000126* 


00530 


000012 


263140 


000000 


00540 
00550 
00560 
00570 
00580 


000013 


660000 


010000 


00590 


000014 


621000 


400000 


00600 


000015 


661000 


000020 


00610 


000016 


603000 


000002 


00620 


000017 


254000 


000024' 


00630 


000020 


260140 


000127' 


00640 


000021 


202000 


000000 


00650 


000022 


201040 


000100 


00660 


000023 


254000 


000030' 


00670 
00680 


000024 


661000 


400000 


00690 


000025 


202000 


000021' 


00700 


000026 


260140 


000127' 


00710 


000027 


201040 


002000 


00720 


000030 


201100 


001500 


00730 


000031 


542100 


000034' 


00740 


000032 


712601 


000000 


00750 


000033 


263140 


000000 


00760 



LPTCLS 



LPTOUT: 



LPTBEG 



LPTBGl 



PUSHJ POP, OUT 
PUSHJ POP, WAITI 
OATAO LPT.LPTTOP 
POPJ POP, 



TRO lOS.IOACT 
TL2 lOS.IODISC 
TLO lOS.IO 
TLNE IOS,IOBEG 
JRST LPTBEG 
PUSHJ PDP.LPTSET 
MOVEM lOS.LPTIOS 
MOVEI TAC.LPTOON 
JRST LPTBGl 



;PRINT REMAINING BUFFERS 

;WAIT FOR IOACT=0 

{PRINT CARRIAGE RETURN, FORM FEED 

JCLOSE RETURN 



; I0ACT = 1 
; IODISC:=0 

;io:=i 

;virgin device? 

;yes 



IOBEG:=0 



;C(LPTIOS):=C( lOS) 



;C(LPTIOS):=C(IOS) 



TLO lOS.IODISC 

MOVEM lOS.LPTIOS 

PUSHJ PDP.LPTSET 

MOVEI TAC. LPTCLR 

MOVEI TACl.LPTLOV+LPTERR+LPTDON 

HRRM TACl.LPTINT 



CONO LPT. 
POPJ PDP, 



LPTCHB(TAC) 

.•RETURN 



.•CLEAR BUFFER AND ASSIGN PI C 
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00770 










00780 










00790 


, LINE 








00800 




000034 


712740 


001500 


00810 


LPTINT 


000035 


254000 


000034' 


00820 




000036 


712700 


000070 


00830 




000037 


712740 


000100 


00840 




000040 


254000 


000102' 


00850 




000041 


335000 


000025' 


00860 


LPTINl 


000042 


254000 


000053' 


00870 




000043 


712500 


000000 


00880 




000044 


334000 


000000 


00890 




000045 


254520 


000000 


00900 




000046 


202040 


000000 


00910 




000047 


515040 


400000 


00920 




000050 


436040 


000041' 


00930 




000051 


200040 


000046' 


00940 


LPTERX 


000052 


254520 


000045' 


00950 
00960 




000053 


264000 


000000 


00970 


LPTDSC 


000054 


201300 


000000 


00980 




000055 


260140 


000000 


00990 




000056 


200000 


000050' 


01000 




000057 


623000 


000002 


01010 




000060 


254000 


000077' 


01020 




000061 


260140 


000000 


01030 




000062 


254000 


000073' 


01040 




000063 


602000 


000040 


01050 




000064 


254000 


000073' 


01060 




000065 


621000 


400000 


01070 




000066 


260140 


000127' 


01080 
01090 




000067 


623000 


000001 


01100 


LPTINX 


000070 


260140 


000000 


01110 




000071 


202000 


000056* 


01120 


LPTXIT 


000072 


254000 


000000 


01130 
01140 




000073 


620000 


010000 


01150 


LPTOFF 


000074 


712600 


000000 


01160 




000075 


513000 


000034' 


01170 




000076 


254000 


000067' 


01180 
01190 




000077 


712540 


000126' 


01200 


LPTBG: 


000100 


621000 


400000 


01210 




000101 


254000 


000071' 


01220 





, LINE PRINTER INTERRUPT SERVICE 

CONSO LPT,LPTL0V+LPTERR+LPT00N;LINE OVERFLOW, ERROR OR DONE 



JRST LPTINT 
CONSZ LPT, 70 
CONSO LPT.LPTDON 
JRST LPTERI 
SKIPGE LPTIOS 
JRST LPTDSC 
BLKO LPT,LPTPTR 
SKIPA 

JEN e>LPTCHL 
MOVEM TACLPTSVl 
HRLZI TACIODISC 
lORM TAC, LPTIOS 
MOVE TACLPTSVl 
JEN PLPTCHL 

JSR LPTSAV 
MOVEI OEVDAT,LPTDAT 
PUSHJ POP, lOSET 
MOVE lOS, LPTIOS 
TLZE I0S,IOBEG 
JRST LPTBG 
PUSHJ PDP.ADVBFE 
JRST LPTOFF 
TRNE IOS,IOCON 
JRST LPTOFF 
TLZ IOS,IODISC 
PUSHJ PDP,LPTSET 

TLZE lOS.IOW 
PUSHJ PDP,SETIOD 
MOVEM lOS, LPTIOS 
JRST LPTRET 

TRZ lOS.IOACT 
CONO LPT,0 
HLLZS LPTINT 
JRST LPTINX 

DATAO LPT.LPTTOP 
TLZ lOS.IODISC 
JRST LPTXIT 



IF LPT IS IN FLAG LIST, GO TO ERROR, E 



;I0DISC=1? 
;PRINT 

;buffer 



YES 



YES 



EMpTY 

JDISMISS 

;SAVE TAC 
;I0DISC:=1 



iRESTORE 



TAC 
{DISMISS 



INTERRUPT AND RETURN 



INTERRUPT AND RETURN 



;save accumulators and establ 
;devdat:=lptdat 

;PR0G:=C(JBTADR18-35), ITEM : =C(DEVPTR) 



;PUT OUT CR-FF 

;advance buffer 

;NEXT buffer EMPTY 
{CONTINUOUS? (IOCON=0?) 
JNO 



;SET LPTPTR 

; IN A WAIT? IOW:=0 
JYES. lOWSJsl 
;C(LPTIOS) :=C(IOS) 
{RESTORE 



ACCUMULATORS AND DIS 



JTURN LPT OFF 



;SEND 
;WHEN 



OUT CR-FF 
I0DISC=1 
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000102 
000103 
000104 
000105 
000106 
000107 
000110 

000111 
000112 
000113 
000114 
000115 
000116 

000117 
000120 
000121 
000122 
000123 
000124 
000125 
000126 



202040 000051' 
712740 001000 
254000 000111' 
210040 000137' 
272040 000043' 
712540 000140' 
254000 000051' 

712740 000070 

254000 000117- 

712600 000000 

201040 000100 

542040 000034' 

254000 000051' 



712640 
405040 
712601 
201040 
542040 
200040 
254000 
064300 



000001 

000300 

000032' 

001500 

000034' 

000102' 

000041' 

000000 



01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 



;HERE on EITHER 
;N0T ASSIGNED. 



OVERFLOW OR ERROR ( OFFL INE ) OR ERROR CHANNEL 



LPTERi: 



LPTERi: 



LPTERA: 



LPTER2: 



MOVEM TACLPTSVl SAVE TAC 

CONSO LPT.LPTLOV ;LINE OVERFLOW? 

JRST LPTERI ;N0 

MOVN TACCEXP 10000013 ;YES, DECREMENT POINTER 

ADDM TACLPTPTR 

DATAO LPT.CEXP 15B6+12B13] ;PRINT CARRIAGE RETURN, LINE 

JRST LPTERX 



CONSO LPT, 70 
JRST LPTER2 
CONO LPT,LPTCLB 
MOVEI TACLPTDON 
HRRM TACLPTINT 
JRST LPTERX 



JERROR INTERRUPT ASSIGNED? 

;no 

;yes, deassign it, set 

;ENABLE FOR DONE FLAG 



BUSY, CLEAR REST 
ONLY 



LPTTOP: 



CONI LPT, TAC 

ANDI TAC, 300 

CONO LPT,LPTCHB(TAC) 

MOVEI TACLPTDON + LPTERR + LPTLOV 

HRRM TACLPTINT 

MOVE TACLPTSVl 

JRST LPTINI 

EXP 15B6+14B13 ;CARRIAGE RETURN, 



FORM FEED 
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01500 








01510 








01520 








01530 








01540 


000127 


201060 


000000 


01550 


000130 


210101 


000001 


01560 


000131 


504040 


000002 


01570 


000132 


343040 


000134* 


01580 


000133 


561040 


000135' 


01590 


000134 


202040 


000106' 


01600 


000135 


263140 


000000 


01610 
01620 


000136 


000000 


000000 


01630 
01640 


000137 


000001 


000001 


01650 


000140 


064240 


000000 





THERE ARE NO ERRORS 
PROGRAM BREAK IS 000141 



,SET UP PRINTER COUNTER AND POINTER 

LPTSET: MOVEI TAC.PLPTADR JLPTPTR : =-( WORD COUNT+1) , BUFFER ADORES 
MOVN TACl.KTAC) 
HRL TACTACl 

AOJLE TAG,. +2 ; C (LPTPTR0-17X0? 
HRROI TACLPTNUL-l 
MOVEM TACLPTPTR 
POPJ PDP, ;return 

LPTNUL: 

END, 
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A 

ACl 

AC2 

AC3 

ADVBEE 

AL 

ASSCON 

ASSPRG 

R 

RUFPNT 

8UFWRD 

CLOSB 

D 

DAT 

OCL 

new 

ODI 

000 

ODTMEM 

ODTSYM 

OEN 

OEVAOR 

OEVBUE 

OEVCHR 

OEVCTR 

DEVDAT 

OEVIAD 

DEVIOS 

DEVLOG 

OEVMOD 

DEVNAM 

OEVOAO 

DEVPTR 

OEVSER 

DGF 

niN 

DLK 

DOU 

OR 

ORL 

OSI 

030 

OTW 

OVAVAL 

OVOIR 

OVniRI 

OVIN 

OVLPT 

DVMTA 

OVOUT 

OVTTY 

ENTRB 

I 

IB 

IBUFB 



000000 

000015 

000016 

000017 

000061' 

000001 

400000 

200000 

000014 

000012 

000013 

002000 

000017 

000005 

000001 

020000 
000007 
000006 
000037 
000036 
000004 
000007 
000006 
000001 
000011 
000006 
000007 
000002 
000005 
000004 
000000 
000010 
000010 
000003 
000012 
000003 
000005 
000002 
000016 
000000 
000011 
000010 
040000 
000040 
000004 
400000 
000002 
040000 
000020 
000001 
000010 
020000 
000010 
000013 
200000 



INT 
INT 
INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
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ILLINP 

INITB 

INPB 

10 

lOACT 

lOBEG 

lORKTL 

lOCON 

lODEND 

lOnERR 

ionise 

lOnONE 

lODTER 

lOFND 

lOFST 

lOTMPM 

lONRCK 

lORDEL 

lORET 

lOS 

lOSET 

lOSTRT 

lOUSE 

lOW 

lOWC 

lOWS 

ITEM 

JBFADR 

JBFCTR 

JBFPTR 

JBUF 

JDAT 

JERR 

JIOW 

JNA 

L00K8 

LPTADR 

LPTAOV 

LPTBEG 

LPTBG 

LPTBGl 

LPTBUF 

LPTCH8 

LPTCHL 

LPTCHN 

LPTCHR 

LPTCLB 

LPTCLR 

LPTCLS 

LPTDAT 

LPTDON 

LPTDSC 

LPTDSP 

LPTERl 

LPTER2 



000003' 


FXT 


400000 


INT 


010000 


INT 


000020 


INT 


010000 


INT 


000002 


TNT 


040000 


INT 


000040 


INT 


020000 


INT 


200000 


INT 


400000 


INT 


400000 


INT 


100000 


INT 


000040 


INT 


000004 


INT 


400000 


INT 


000100 


INT 


000100 


INT 


000020 


INT 


000000 


INT 


000055' 


FXT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


040000 


INT 


000127' 


FXT 


100000 




000024' 




000077' 




000030' 




000000 


FXT 


000121' 


FXT 


000052' 


FXT 


000000 


FXT 


000000 


FXT 


000113' 


FXT 


002000 




000007' 




000054' 


EXT 


000100 




000053' 




000000' 


INT 


000111' 




000117' 
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LPTERA 

LPTERI 

LPTERR 

LPTERX 

LPTINl 

LPTINI 

LPTINT 

LPTINX 

LPTIOS 

LPTLOV 

LPTMOD 

LPTNUL 

LPTOFF 

LPTOUT 

LPTPTR 

LPTRET 

LPTSAV 

LPTSER 

LPTSFT 

LPTSVl 

LPTTOP 

LPTXIT 

MTW 

0BUF8 

OUT 

OUTPB 

POP 

PICHN 

PROG 

RUN 

RUNABL 

SETIOD 

TAG 

TACl 

TEM 

TTYATC 

TTYUSE 

USRMOD 

UUO 

WAITl 



000115' 

000102' 

000400 

000051* 

000041' 

000004' 

000034' 

000067' 

000071' 

001000 

000000 

000136' 

000073' 

000013' 

000134' 

000072' 

000053' 

000000 

000127' 

000124' 

000126' 

000071' 

010000 

100000 

000007' 

004000 

000003 

000100 

000007 

200000 

204000 

000070' 

000001 

000002 

000010 

020000 

010000 

010000 

000014 

000010' 



INT 
INT 

EXT 

FXT 



EXT 
FXT 
FXT 
FXT 

FXT 



INT 
INT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
FXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
FXT 



END OF ASSEMBLY 



